home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / pathid100.lha / PathID / Install_PathID next >
Text File  |  1994-12-22  |  2KB  |  75 lines
  1. ; $VER: PathID Install 1.00 (12.22.94) by Jason Gouger
  2.  
  3. (set source-dir (pathonly (expandpath @icon)))
  4.  
  5. (procedure select-prg-destination-directory
  6.     (set prg-destdir
  7.         (askdir
  8.             (prompt "In which drawer should "@app-name" be installed?") 
  9.             (help "You should install "@app-name" in the MEBBSNet:c Path.")
  10.             (default "MEBBSNet:c")
  11.            (newpath)
  12.         )
  13.     )
  14. )
  15.  
  16. (procedure copy-pathid-prg
  17.     (copyfiles
  18.         (source source-dir) (dest prg-destdir)
  19.         (pattern "PathID")
  20.         (files)
  21.     )
  22. )
  23.  
  24. (procedure copy-pathid-doc
  25.     (transcript "\nCopying documentation...\n")
  26.     (if (askbool
  27.         (prompt "Would you like the documentaion installed for "@app-name"?")
  28.         (help "Selecting YES to this option will copy the documentaion to a "
  29.             "selected directory."))
  30.         ((set doc-dir
  31.             (askdir
  32.                 (prompt "In which drawer should the documentation be installed?") 
  33.                 (help "You should select a directory wher you keep you documentation files.")
  34.                 (default "MEBBSNet:")
  35.                (newpath)
  36.             )
  37.         )
  38.         (copyfiles
  39.             (source source-dir) (dest doc-dir)
  40.             (pattern "PathID.guide")
  41.             (files)
  42.             (if(= 1 install-icons) (infos))
  43.         )
  44.         (if ((exists "SYS:Utilities/MultiView")) 
  45.             (tooltype(
  46.                 (dest (tackon doc-dir "PathID.guide"))
  47.                 (setdefaulttool "SYS:Utilities/MultiView")
  48.             ))
  49.             (tooltype(
  50.                 (dest (tackon doc-dir "PathID.guide"))
  51.                 (setdefaulttool "SYS:Utilities/AmigaGuide")
  52.             ))
  53.         )
  54.     ))
  55. )
  56.  
  57. (procedure ask-install-icons
  58.     (set install-icons 0)
  59.     (if (askbool
  60.         (prompt "Would you like the icons installed for "@app-name"?")
  61.         (help "Selecting YES to this option will create the respective icons so that "
  62.                 "the directory and documentation may be accessed through WorkBench."))
  63.         ((set install-icons 1))
  64.     )
  65. )
  66.  
  67.  
  68. (complete 00) (transcript "Installation script for " @app-name ".")
  69. (complete 10) (select-prg-destination-directory)
  70. (complete 25) (ask-install-icons)
  71. (complete 50) (copy-pathid-prg)
  72. (complete 75) (copy-pathid-doc)
  73. (set @default-dest prg-destdir)
  74. (complete 100)
  75.